-- card: 35063 from stack: in.2r
-- bmap block id: 0
-- flags: 0000
-- background id: 2612
-- name: MungeMCTB


-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=386 top=269 right=293 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: try me
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then edit script of me
  ask "Please enter the red component (0-65535)" with "65535"
  put it into red
  if red is empty then exit mouseup

  ask "Please enter the green component (0-65535)" with "65535"
  put it into green
  if green is empty then exit mouseup

  ask "Please enter the blue component (0-65535)" with "0"
  put it into blue
  if blue is empty then exit mouseup

  MungeMCTB Red,Green,Blue

  if the result is not empty then put the result
end mouseUp



-- part contents for background part 2
----- text -----
MungeMCTB

-- part contents for background part 3
----- text -----
MungeMCTB (meaning: Munge Menu Color Table) is an XCMD that changes the color of the background of both the Menu Bar and the pull-down menus to a specified color.



NOTE: Make sure that you run this on a Mac II (color helps).

Enjoy.......Chris Knepper ==> CIS: 76347,1757
© Apple Computer, Inc.



-- part contents for background part 10
----- text -----
Syntax:

MungeMCTB <Red>,<Green>,<Blue>

Pass 3 parameters to MungeMCTB (one each for the red, green, and blue components of the color you want the menu to be.)

ex:  MungeMCTB 65535,65535,0

returns any error in 'the result'.

-- part contents for background part 13
----- text -----
30